home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / Tools / Useful / setprogname.e < prev    next >
Encoding:
Text File  |  1996-08-11  |  315 b   |  16 lines
  1. OPT MODULE, PREPROCESS
  2. OPT EXPORT
  3.  
  4. MODULE 'dos/dos',
  5.        'dos/dosextens'
  6.  
  7. PROC setprogname(p:PTR TO LONG)
  8.   DEF cli:PTR TO commandlineinterface, bstr
  9.   IF p[]=NIL
  10.     IF cli:=Cli()
  11.       bstr:=BADDR(cli.commandname)
  12.       p[]:=String(bstr[])
  13.       IF p[] THEN StrCopy(p[],bstr+1,bstr[])
  14.     ENDIF
  15.   ENDIF
  16. ENDPROC